﻿Public Class frmLoading
    Dim tex(10) As String
    Dim i As Int16
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        i = proloading.Value / 10
        lbltext.Text = tex(i)
        'proloading2.Value += 1
        proloading.Value += 1
        If proloading.Value = 100 Then
            Timer1.Stop()
            'Me.Visible = False
            'Dim frm As New frmLogin
            'frm.Show()
            Me.Close()
        End If
        ' lbltext.ForeColor = Color.WhiteSmoke
    End Sub

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()
        tex = {"Related Data", "System Information", "Prepare Report", "Data Model", "Initalize Code", "Prepare Statement", "Initalize Interface", "Adding Form", "Initalize Procedure", "Build Application", "Success"}
        ' Add any initialization after the InitializeComponent() call.
        'myDataset.getdata("Category")
        'Dim dt As New DataTable
        'dt = myDataset.dataset.Tables("category")
        'myDataset.getdata("Sex")
        'myDataset.getdata("Customer")
        'myDataset.getdata("Employee")
        'myDataset.getdata("Invoice")
        'myDataset.getdata("InvoiceDetail")
        'myDataset.getdata("Product")
        'myDataset.getdata("Purchase")
        'myDataset.getdata("PurchaseDetail")
        'myDataset.getdata("Stock")
        'myDataset.getdata("Store")
        'myDataset.getdata("Transfer")
        'myDataset.getdata("TransferDetail")
        'myDataset.getdata("Type")
        'myDataset.getdata("Vendor")
        'myDataset.getdata("system.[Permission]")
        'myDataset.getdata("system.[Role]")
        'myDataset.getdata("system.[RolePermission]")
        'myDataset.getdata("system.[User]")
        'myDataset.getdata("system.[UserRole]")

    End Sub
    
End Class